home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 July / PCWorld_2001-07_cd.bin / Software / Vyzkuste / xsetup / setup.exe / {app} / plugins / XenEudSplash.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-03-17  |  1.7 KB  |  62 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="7"
  3. "COUNT"="2"
  4. "UIPATH"="Internet\Eudora"
  5. "NAME"="Eudora Splash Screen"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Disable Splash"
  8. "TEXT 2"="Enable Splash"
  9. "DESCRIPTION 1"="This will remove the splash screen shown while Eudora Email client loads up."
  10. "DESCRIPTION 2"="Created by J. Scott Elblein"
  11. "VERSION"="1.01a"
  12. "AUTHOR"="J. Scott Elblein"
  13. "COPYRIGHT"="All Rights Reserved. 2001"
  14. "CONTACTURL"="http://www.xenon-inc.com/"
  15. "COMMENT 1"="... Used with permission"
  16.  
  17. 'Hey XTeq dudes ... how about adding a Bookmarks drop-down list so you can go directly to favorite keys? ;)
  18.  
  19. 'Called when the Plugin is started
  20. SUB Plugin_Initialize
  21.  if regpathexists("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\Eudora.exe") then
  22.  
  23.     s = RegReadValue("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\Eudora.exe\Path")
  24.     call SetUIElement(1,true)
  25.  
  26.  else
  27.  
  28.     disable
  29.  
  30.  end if
  31.  
  32. END SUB
  33.  
  34. 'Called when the Plugin should validate the Data the user has entered
  35. SUB Plugin_CheckData(ElementIndex)
  36. END SUB
  37.  
  38. 'Called when the Plugin should apply the changes
  39. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  40.  s = regreadvalue("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\Eudora.exe\Path")
  41.  
  42.  b = getuielement(1)
  43.  
  44.  if b = true then
  45.  
  46.     
  47.     call iniwritevalue(s & "\Eudora.ini","Settings","NoSplashScreen","1")
  48.     MsgInformation("Eudora Splash Screen Disabled")
  49.  
  50.  else
  51.  
  52.     call iniwritevalue(s & "\Eudora.ini","Settings","NoSplashScreen","0")
  53.     MsgInformation("Eudora Splash Screen Enabled")
  54.  
  55.  end if
  56.  
  57. END SUB
  58.  
  59. 'Called when the Plugin is about to be removed from memory
  60. SUB Plugin_Terminate
  61. END SUB
  62.